unit Class_DEPT;

interface
uses
  Classes,SysUtils,DB,Uni,UniEngine;

type
  TDEPT=class(TCollectionItem)
  private
    FUNITLINK : string;
    FDEPTLINK : string;
    FDEPTCODE : string;
    FDEPTNAME : string;
    FDEPTKIND : string;
    FNAMELINK : string;
    FDEPTLEVL : Integer;
    FDEPTPREV : string;
    FDEPTCALL : string;
    FDEPTORDR : Integer;
    FDEPTMEMO : string;
    FBINDDEPT : string;
    FRFERSECT : string;
    FIMEDICAL : Integer;
    FISEFFECT : Integer;
    FSUBJLINK : string;
  protected
  public
    function  GetNextIdex:Integer;overload;
    function  GetNextIdex(AUniConnection:TUniConnection):Integer;overload;
  public
    destructor  Destroy; override;
    constructor Create;  
  published
    property UNITLINK : string read FUNITLINK  write FUNITLINK;
    property DEPTLINK : string read FDEPTLINK  write FDEPTLINK;
    property DEPTCODE : string read FDEPTCODE  write FDEPTCODE;
    property DEPTNAME : string read FDEPTNAME  write FDEPTNAME;
    property DEPTKIND : string read FDEPTKIND  write FDEPTKIND;
    property NAMELINK : string read FNAMELINK  write FNAMELINK;
    property DEPTLEVL : Integer read FDEPTLEVL  write FDEPTLEVL;
    property DEPTPREV : string read FDEPTPREV  write FDEPTPREV;
    property DEPTCALL : string read FDEPTCALL  write FDEPTCALL;
    property DEPTORDR : Integer read FDEPTORDR  write FDEPTORDR;
    property DEPTMEMO : string read FDEPTMEMO  write FDEPTMEMO;
    property BINDDEPT : string read FBINDDEPT  write FBINDDEPT;
    property RFERSECT : string read FRFERSECT  write FRFERSECT;
    property IMEDICAL : Integer read FIMEDICAL  write FIMEDICAL;
    property ISEFFECT : Integer read FISEFFECT  write FISEFFECT;
    property SUBJLINK : string read FSUBJLINK  write FSUBJLINK;    
  public
    class function  CopyIt(ADEPT:TDEPT):TDEPT;overload;        
    class procedure CopyIt(ADEPT:TDEPT;var Result:TDEPT);overload;       
  end;

implementation

{ TDEPT }



function TDEPT.GetNextIdex: Integer;
begin

end;

function TDEPT.GetNextIdex(AUniConnection: TUniConnection): Integer;
begin

end;


constructor TDEPT.Create;
begin

end;

destructor TDEPT.Destroy;
begin

  inherited;
end;



class function  TDEPT.CopyIt(ADEPT: TDEPT): TDEPT;
begin
  Result:=TDEPT.Create;
  TDEPT.CopyIt(ADEPT,Result)
end;

class procedure TDEPT.CopyIt(ADEPT:TDEPT;var Result:TDEPT);
begin
  if Result=nil then Exit;
  Result.UNITLINK :=ADEPT.UNITLINK;
  Result.DEPTLINK :=ADEPT.DEPTLINK;
  Result.DEPTCODE :=ADEPT.DEPTCODE;
  Result.DEPTNAME :=ADEPT.DEPTNAME;
  Result.DEPTKIND :=ADEPT.DEPTKIND;
  Result.NAMELINK :=ADEPT.NAMELINK;
  Result.DEPTLEVL :=ADEPT.DEPTLEVL;
  Result.DEPTPREV :=ADEPT.DEPTPREV;
  Result.DEPTCALL :=ADEPT.DEPTCALL;
  Result.DEPTORDR :=ADEPT.DEPTORDR;
  Result.DEPTMEMO :=ADEPT.DEPTMEMO;
  Result.BINDDEPT :=ADEPT.BINDDEPT;
  Result.RFERSECT :=ADEPT.RFERSECT;
  Result.IMEDICAL :=ADEPT.IMEDICAL;
  Result.ISEFFECT :=ADEPT.ISEFFECT;
  Result.SUBJLINK :=ADEPT.SUBJLINK;
end;

end.

